home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / latexKeys.tcl < prev    next >
Text File  |  1995-08-01  |  4KB  |  122 lines
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexKeys.tcl (called from latex.tcl)
  5. #
  6. # Special LaTeX key bindings (see latexMenu.tcl and latexSmart.tcl for
  7. #                             additional bindings)
  8. #
  9. # abbreviations:  <o> = option, <z> = control, <s> = shift, <c> = command
  10. #
  11. #############################################################################
  12. #
  13. # Author:  Tom Scavo <trscavo@syr.edu>
  14. #
  15. #############################################################################
  16. #############################################################################
  17.  
  18. # Initial binding of LaTeX command keys.
  19. proc bindLaTeXKeys {} {
  20.     bindKeypadKeys
  21.     shadowUseDollarSigns
  22.     bindGreekKeys "bind"
  23. }
  24.  
  25. proc bindKeypadKeys {} {
  26.     # Completely take over the keypad:
  27.     set mods {<> <c> <o> <z> <s> <co> <cz> <cs> <oz> <os> <zs> \
  28.               <coz> <cos> <ozs> <cozs>}
  29.     foreach mod $mods {
  30.         bind Kpad0 $mod dummyTeX "TeX"
  31.         bind Kpad1 $mod dummyTeX "TeX"
  32.         bind Kpad2 $mod dummyTeX "TeX"
  33.         bind Kpad3 $mod dummyTeX "TeX"
  34.         bind Kpad4 $mod dummyTeX "TeX"
  35.         bind Kpad5 $mod dummyTeX "TeX"
  36.         bind Kpad6 $mod dummyTeX "TeX"
  37.         bind Kpad7 $mod dummyTeX "TeX"
  38.         bind Kpad8 $mod dummyTeX "TeX"
  39.         bind Kpad9 $mod dummyTeX "TeX"
  40.         bind Kpad= $mod dummyTeX "TeX"
  41.         bind Kpad/ $mod dummyTeX "TeX"
  42.         bind Kpad* $mod dummyTeX "TeX"
  43.         bind Kpad- $mod dummyTeX "TeX"
  44.         bind Kpad+ $mod dummyTeX "TeX"
  45.         bind Enter $mod dummyTeX "TeX"
  46.         bind Kpad. $mod dummyTeX "TeX"
  47.     }
  48.     bind Kpad8 prevSubsection "TeX"
  49.     bind Kpad2 nextSubsection "TeX"
  50.     bind Kpad8 <s> prevSubsectionSelect "TeX"
  51.     bind Kpad2 <s> nextSubsectionSelect "TeX"
  52.     bind Kpad8 <c> prevSection "TeX"
  53.     bind Kpad2 <c> nextSection "TeX"
  54.     bind Kpad8 <sc> prevSectionSelect "TeX"
  55.     bind Kpad2 <sc> nextSectionSelect "TeX"
  56.     bind Kpad4 prevCommand "TeX"
  57.     bind Kpad6 nextCommand "TeX"
  58.     bind Kpad4 <s> prevCommandSelect "TeX"
  59.     bind Kpad6 <s> nextCommandSelect "TeX"
  60.     bind Kpad4 <so> prevCommandSelectWithArgs "TeX"
  61.     bind Kpad6 <so> nextCommandSelectWithArgs "TeX"
  62.     bind Kpad4 <c> prevEnvironment "TeX"
  63.     bind Kpad6 <c> nextEnvironment "TeX"
  64.     bind Kpad4 <sc> prevEnvironmentSelect "TeX"
  65.     bind Kpad6 <sc> nextEnvironmentSelect "TeX"
  66. }
  67.  
  68. # The proc 'shadowUseDollarSigns' is executed automatically whenever 
  69. # the flag 'useDollarSigns' is altered.  The proc 'mathModeSubmenu'
  70. # is defined in latexMenu.tcl.
  71. trace variable TeXmodeVars(useDollarSigns) w shadowUseDollarSigns
  72. proc shadowUseDollarSigns {{name1 {}} {name2 {}} {op w}} {
  73.     eval [mathModeSubmenu]
  74. }
  75.  
  76. proc bindGreekKeys {func} {
  77.     eval $func    'm'    <z>    prefixChar "TeX"
  78.     eval $func    'a'    <M>    alpha    "TeX"
  79.     eval $func    'b'    <M>    beta    "TeX"
  80.     eval $func    'c'    <M>    chi    "TeX"
  81.     eval $func    'd'    <M>    delta    "TeX"
  82.     eval $func    'd'    <sM>    Delta    "TeX"
  83.     eval $func    'e'    <M>    epsilon    "TeX"
  84.     eval $func    'e'    <zM>    varepsilon    "TeX"
  85.     eval $func    'f'    <M>    phi    "TeX"
  86.     eval $func    'f'    <sM>    Phi    "TeX"
  87.     eval $func    'f'    <zM>    varphi    "TeX"
  88.     eval $func    'g'    <M>    gamma    "TeX"
  89.     eval $func    'g'    <sM>    Gamma    "TeX"
  90.     eval $func    'h'    <M>    eta    "TeX"
  91.     eval $func    'i'    <M>    iota    "TeX"
  92.     eval $func    'k'    <M>    kappa    "TeX"
  93.     eval $func    'l'    <M>    lambda    "TeX"
  94.     eval $func    'l'    <sM>    Lambda    "TeX"
  95.     eval $func    'm'    <M>    mu    "TeX"
  96.     eval $func    'n'    <M>    nu    "TeX"
  97.     eval $func    'o'    <M>    omicron    "TeX"
  98.     eval $func    'p'    <M>    pi    "TeX"
  99.     eval $func    'p'    <sM>    Pi    "TeX"
  100.     eval $func    'p'    <zM>    varpi    "TeX"
  101.     eval $func    'q'    <M>    theta    "TeX"
  102.     eval $func    'q'    <sM>    Theta    "TeX"
  103.     eval $func    'q'    <zM>    vartheta    "TeX"
  104.     eval $func    'r'    <M>    rho    "TeX"
  105.     eval $func    'r'    <zM>    varrho    "TeX"
  106.     eval $func    's'    <M>    sigma    "TeX"
  107.     eval $func    's'    <sM>    Sigma    "TeX"
  108.     eval $func    's'    <zM>    varsigma    "TeX"
  109.     eval $func    't'    <M>    tau    "TeX"
  110.     eval $func    'u'    <M>    upsilon    "TeX"
  111.     eval $func    'u'    <sM>    Upsilon    "TeX"
  112.     eval $func    'v'    <M>    nabla    "TeX"
  113.     eval $func    'w'    <M>    omega    "TeX"
  114.     eval $func    'w'    <sM>    Omega    "TeX"
  115.     eval $func    'x'    <M>    xi    "TeX"
  116.     eval $func    'x'    <sM>    Xi    "TeX"
  117.     eval $func    'y'    <M>    psi    "TeX"
  118.     eval $func    'y'    <sM>    Psi    "TeX"
  119.     eval $func    'z'    <M>    zeta    "TeX"
  120. }
  121.  
  122.